home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
fortran.zip
/
WASM.ZIP
/
PRES.ASM
< prev
next >
Wrap
Assembly Source File
|
1987-05-05
|
968b
|
44 lines
Title 'Wolfware Assembler Sample Program', 'Printer Reset'
;================================================
; Printer Reset
;
; Initialize first parallel printer through the
; BIOS printer routine. Once assembled, to
; reset the printer, type:
;
; PRES
;
; This routine has the effect of initializing
; the printer to its power on characteristics.
Proc Far
;--- equates
Port Equ 0 ;printer port to initialize
;--- display message
Mov Dx, Offset Presmess ;message location
Mov Ah, 9 ;string output
Int 21h ;execute
;--- reset printer port
Mov Ah, 1 ;function number
Mov Dx, Port ;printer port number
Int 17h ;execute
;--- exit
Mov Ax, 4c00h ;function and error code 0
Int 21h ;exit
;--- message
Presmess Db 10,'Printer ', Port + '0' + 1 ,' reset', 13,10,'$'
Endp ;main program